Option Explicit
Sub D_Sample033()
    Dim myFileName As String
    Dim myWb       As Workbook
    myFileName = Application.GetOpenFilename("Excelï(*.xls),*.xls")
    If myFileName = "False" Then
        MsgBox "SwTɮצW١C"
        Exit Sub
    End If
    On Error Resume Next
    Set myWb = Workbooks(Dir(myFileName))
    On Error GoTo 0
    If myWb Is Nothing Then
        Workbooks.Open Filename:=myFileName
    Else
        If myWb.FullName = myFileName Then
            MsgBox "zҫwïwgQ}ҡC"
            myWb.Activate
        Else
            MsgBox "ѩ󦳦PWLïQ}ҡAҥHLk}ҡC"
        End If
    End If
    Set myWb = Nothing					'
End Sub
